home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / cli / mx2src.arc / NEWSYS.DEF < prev    next >
Encoding:
Modula Definition  |  1989-01-05  |  1.0 KB  |  27 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (* 1.0.0  First Release                      12/8/87-FGB        *)
  6. (* 1.0.1  Changed to trap #9 because of possible conflict with  *)
  7. (*        JSM2 coroutines                    12/9/87-FGB        *)
  8. (*                                                              *)
  9.  
  10. DEFINITION MODULE NEWSYS;
  11. FROM       SYSTEM       IMPORT  ADDRESS;
  12.  
  13. TYPE    PROCESS         =       ADDRESS;
  14. CONST      TRAP         =       0A4H; (* trap 9 adr used for TRANSFER and
  15.                                          IOTRANSFER *)
  16.  
  17. PROCEDURE  NEWPROCESS(processProc       :  PROC;
  18.                       workspace         :  ADDRESS;
  19.                       worksize          :  LONGCARD;
  20.                       VAR process       :  ADDRESS);
  21.  
  22. PROCEDURE  TRANSFER(VAR p1,p2: ADDRESS);
  23.  
  24. PROCEDURE  IOTRANSFER(VAR p1,p2: ADDRESS; device: ADDRESS);
  25.  
  26. END               NEWSYS.
  27.